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-REM „ 



IDENTIFICATION 
PRODUCT CODES AC-E971D-MC 

PRODUCT NAME: CXRMADO RH11,70/RM03^02 S P M 

PRODUCT date: FEB 1979 

MAINTAINER: DEC/Xll SUPPORT GROUP 

THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE 
WITHOUT NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT 
B¥ DIGITAL EQUIPMENT CORPORATION. DIGITAL EQUIPMENT 
CORPORATION ASSUMES NO RESPONSIBILITY FOR ANY ERRORS THAT 
MAY APPEAR IN THIS MANUAL. 

THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED TO THE 
PURCHASER UNDER A LICENSE FOR USE ON A SINGLE COMPUTER 
SYSTEM AND CAN BE COPIED (WITH INCLUSION OF DIGITALS 
COPYRIGHT NOTICE) ONLY FOR USE IN SUCH SYSTEM, EXCEPT AS MAY 
OTHERWISE BE PROVIDED IN WRITING BY DIGITAL. 

DIGITAL EQUIPMENT COiPORATION ASSUMES NO RESPONSIBILITY FOR 
THE USE OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT THAT IS 
NOT SUPPLIED BY DIGITAL. 

COPYRIGHT (C) 1978,1979 DIGITAL EQUIPMENT CORPORATION 
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1. ABSTRACT 



RMA IS AN lOMOD THAT EXERCISES RM03/RM02 DISK DRIVES ON AN 
RH11/RH70 CONTROLLER. IT EXERCISES^THE DRIVES BY D0ING^WRITES,^_ 
WRITE-CHECKS/ READS, AND IN-CORE COMPARISONS. ALL ERRORS DETECTED 
ARE REPORTED ON THE CONSOLE TTY. 



2. REQUIREMENTS 



HARDWARE: 1 TO 8 RM03/RM02 WITH AN RH11/RH70 CONTROLLER 

storage: : rma requires: 

' DECI! ^ _ 

OCTAL WORDS: 03441 



1. DECIMAL WORDS: 1R25 

2. OCTAL WORDS: 03441 

3. OCTAL BYTES: 7102 



3. PASS DEFINITION 



ONE PASS OF THE RMA MODULE CONSISTS OF 1300 CYCLES OF THE BASIC TEST 
SEQUENCE f WRITE, WRITE-CHECK, READ/ DATA-CHECK). 
PES 1024 HORDS^ WRITE-CHECKS SAME, READS THE I 
DATA-CHECKS SAME. 



SEQUENCE f WRITE, MRITE-CHECK, READ* DATA-CHECK). THE TEST SEQUENCE 
WRITES 1024 WORDS, WRITE-CHECKS SAME, READS THE FIRST 256 WORDS, 



4. EXECUTION TIMS 

ONE PASS OF RMA RUNNING ALONE ON A PDP-11/40 TAKES APPROXIMATELY 0.9 MINUTE. 

5. CONFIGURATION REQUIREMENTS 

DEFAULT PARAMETERS: 

DEVADR: 176700, VECTOR: 254, BRll 5, DEYCNTi 1 

REQUIRED parameters: 

NONE 

6. DEVICE/OPTION SETUP 

MAKE CERTAIN THAT ALL DRIVES ARE POWERED UP, WRITE ENABLED, AND READY 

THIS MODULE ALSO SUPPORTS RP04/5/6 ON THE SAME MASS8US CONTROLLER. 
HOWEVER, THIS MODULE IS NOT USED TO EXERCISE RP04/5/6 ALONE. 



RMAD DEC/Xll SYSTEM EXERCISER MODULE MACYll 30A(1052) 12-DEC-78 16:22 PAGE 4 
XRMaOO.Pll 12-DEC-78 16:17 

7. MODOLP; OPERATIOM 
TEST SEQUENCES 

A. SETUP DEVICE REGISTER ADDRESSES AND MODULE VARIABLES 

B. RESET ALL DRIVES ON-LINE AND DROP ALL THAT ARE MOT 

C. GET A STARTING SECTOR ADDRESS 

D. GET A DRIVE ADDRESS 

E. 00 A WRITE — IF ERRORS^ REPORT AND RETRY UP TO RETRY LIMIT 

F. DO A WRITE-CHECK — IF ERRORS^ REPORT AND RETRY UP TO RETRY LIMIT 

G. DO A READ — IF ERRORS- REPORT AND RETRY UP TO RETRY LIMIT 

H. DO A DATA-CHECK — IF ERRORS, REPORT AND RETRY OP TO RETRY LIMIT 

I. IF END OF PASS- REPORT AND G3 TO C 

J. IF END OF DRIVES, 30 TO C ELSE GO TO D 

8. OPERATION OPTIONS 



SRI BITO SET(1)I 

IF THE R_ _ . ^ _ _ - 

IS ASSUMED AND THE DRIVE IS DROPPED 



IF THE^RETRY^JjIMIT JS_EXCE§DED_DN_ANY FUNCTION, A HARD ERROR 



SRI BITO CLEAR(O): 

IF THE RETRY LIMIT IS EXCEEDED, THE FUNCTION IS ABORTED AND 
THE TESTING CONTINUES 

SRI BIT2 SET(l): 

COUNT DATA LATE ERRORS BUT DO NOT TYPE THEM OUT 

SRI BIT2 CLEAR(O): 

TYPE OUT DATA LATE ERRORS AND COUNT THEM 



SRI BITS CLEAR (0) JNORMAL FOR RM03 PACKS THAT ARE FORMATED 

IFOR 16 BIT MODE (PDP-11) 
SRI BITS SET (1) ?FOR RM03 IB BIT FORMATED PACKS 



SRI BIT15 SET (1) |32 REGISTERS ON RH70 

SRI BIT15 CLEAR (0) ;22 REGISTERS ON RH70 
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9. NON-STANDARD PRINTOUTS 



A, MOST PRIflTOOTS HAVE THE STAMDARD FORMATS DESCRIBED IN 
THE DEC/Xll DOCUMENT 

8. ERROR MESSAGES DUMP THE CONTENTS OF THE 20 RH11/RM03 REGISTERS 

IN THE FOLLOWING ORDER: 

RMCSl RMWC RMBA RMDA RMCS2 RMDS RMERl RMAS 

RMLA RMDB RMMRl RMDT RMSN RMOF RMDC RMHR 
RMMR2 RMER2 RMECl RMEC2 RMBAE RMCS3 XFER CNT 



10. BAD SPOTS 



A. LOCATION 256 THROUGH 452 CONTAIN ROOM FOR 32. BAD SPOTS. 

EACH BAD SPOT TAKES TWO WORDS. 
THE FIRST WORD SPECIFIES THE CYLINDER ADDRESS. 

THE LOW BYTE OF THE SECOND WORD SPEFICIES THE SECTOR ADDRESS, 
THE HIGH BYTE OF THE SECOND WORD SPECIFIES THE TRACK ADDRESS. 



a. THE RMA MODULE DOES NOT ACCESS THESE SPOTS ON ANY OF THE 

DRIVE UNDER TEST. 
C. THE BAD SPOT FILE IS RETRTEVEO FROM ALL DRIVES 

ASSIGMED IN THE BIT MAP "DVIDl". 
CYLINDER 822^ TRACK 4, SECTOR - MANUFACTUR BAD SPOT FILE) 
CYLINDER 822, TRACK 4, SECTOR 12 - USER BAD SPOT FILE) 
.nCATIQN 1760 MUST RE SET TO 10 TO SEARCH USER BAD SPOT FILE 



MACYH 30A(1052) 12-DEC-78 16:22 PIGK 7 



lOHODX <BM|0^ >-l7670 

MODULE iBOOOO/RKAD , 

-TITLE RMAD OEC/Xll S 

DDXCUM VERSION 6 



000012' 

000016' 
000020' 



046522 

240 

000881 
000000 

mm 

000000 

150000 

000000 

mm 

OOQOOO 

* "0 



--8o§8- 

000072' 
000074' 
000076' 
000100' 
00Q1Q2' 
000102' 

000106' 
000106' 
000110' 
000112' 
000114' 
000116' 
000120' 
000122' 
000124' 
000126' 



042101 



040 



000000 
000000 
000000 

000000 
OQOOOO 
000000 
OOOOOD 

BE 

000000 
000000 
000000 

000000 



000000 

ooogoo, 
8o?o3o 

000000 
000000 

mm- 

000000 



. ****** 

begin: 
modnam: 
xflag: 
addr: 

VECTOR! 

BRl: 

BR2: 

ovlDi: 

SRi: 

SR2: 

srS: 
SR4: 
******* 

STAT: 
INIT: 
spoint: 

PASCNT! 

ICONT: 

ICOUNT: 

SOFCNT! 

HRDCNT! 

SOFPASJ 

HRDPAS: 

SYSCNT! 

rannum: 

CONFIG: 

RKSl: 

RES2: 

SVRO: 

SVRI: 

SVR2: 

SVR3: 

SVR4: 

SVR5: 

SVR6: 

CSRA: 

SBADR: 

ACSR: 

wasadr: 

ASTAT: 

ERRTYP: 

ASB: 

AWAS: 

RSTRT: 

HDTO: 

WDFR: 

intr: 

IDNOMS 

HBUFVA: 

RRUFPA5 



00.,144,B'fFIN.256.^1024. 
i fOfuu,^3i£3£v;, 0,1300., 144, BUF IN, 256.,1024. 
YSTEM EXERCISER MODULK 
23-MAY-78 
L I ST BIN 

i** ************************************ ******* 



.ASCII 
.BYTE I 
176700+0 
254*0 
.BYTE 
.BYTE 
5*1 
OPEN 
OPEN 
OPEN 
OPEN 
******** 

150000 
START 
MODSP 


J300. 




i 



! 




OPEN 
OPEN 
OPEN 
OPEN 
OPEN 
OPEN 
OPEN 
OPEN 

OPEN 

OPEN 

OPEN 

OPEN 

RESTR? 

OPEN 

OPEN 

OPEN 

144 

BUFIN 

OPEN 



RMAD / 
PEN 



PRTY5+0 
PRTYO+0 



*********** 



****************** 

;MaDULE NAME. „ „„ 

snSED TO KEEP TRACK OF WBUFF "SAGE 
;1ST DEVICE AODR. 
;1ST DEVICE VECTOR. 
?1ST BR LEVFL. 
?2ND PR LEVEL. „ , 
;DEVICE INDICATOR 1. 
;SWITCH REGISTER 1 
?SWTTCH REGISTER 2 
?SWITCH REGISTER 3 
;S«ITCH REGISTER 4 
********************************************* 

ySTATHS WORD. 

;module start ADDR. 

;M0DULE STACK POINTER. 
;PASS COUNTER. 

;« OF ITERATIONS ^ER PASS=1300. 
;LOC TO COUNT ITERATIONS 
;LOC TO SAVE TOTAL SOFT ERRORS 
;LOC TO SAVE TOTAL HARD ERRORS 
?LOC TO SAVE SOFT ERRORS PER PASS 
;LOC TO SAVE HARD ERRORS PER PASS 
;# OF SYS ERRORS ACCUMULATED 
;HOLDS RANDOM # WHFN RAND MACRO IS CALLFD 
;RESERVED FOR MONITOR USE 

preserved for monitor use 
;reserved for monitor use 
?loc to save ro. 

?LOC TO SAVE Rl. 
;LOC TO SAVE R2. 
?LOC TO SaVE R3. 
;LOC TO SAVE R4. 
;loc to save R5. 
;loc to save p6. 
?addr of current csr. 
; addr of good data, or 
;contents of csr. 
;addr of bad data, or 
? status reg contents. 
;type of frror 

RESPECTED DATA, 

;actual data. 

?RESTART ADDRESS AFTER END OF PASS 
;WORDS TO MEMORY PER ITERATION 
;tfORDS FROM MEMHRY PER ITERATION 
;« OF INTERRUPTS PER ITERATION 

JMODULE IDENTIFICATION NUHBER=144 
;READ BUFFER VIRTUAL ADDRESS 

;read buffer physical address 
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000130' 000000 
0ggl32: 999400 

000136' 
000140* 
000142' 
000144' 
000146' 
000150' 
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RBUFEA: OPEN 
RBUFSZ: 256. 
WBUFPA: OPEN 
SsJRUFEAS OPEN 
WBUFRQS 1024. 
i^BUFSZ: OPEN 
CDERCT: OPEN 
CDWOCT: OPEN 
free: OPEN 

.REPT SPSIZ 

.NLIST 

.WORD 

-LIST 

.ENDR 

MODSP : 

;**************************** 



;READ BUFFER FA B ITS 
?SIZE OF THE READ BUFFER 
;WRITE BUFFER PHYSICAL ADDRESS 
;WRITE BUFFER EA BITS 
?yRITE BUFFER SIZE REQUESTED 
?WRITE BUFFER SIZE AVAILAT^LE 
;CDATA/DATCK FRROR COUNT 
;CDATA/DATCK WORD COUNT 
;RESERVFD FOR FUTURE USE 
JMODULE STACK STARTS HERE. 



******************* 



********************** 
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SEQ 0007 



000252- 
0002^^4 • 



000254' 




file: 
badspt: 



-WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.UORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 

• WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
-WORD 
.WORD 
.WORD 

• WORD 
.WORD 
.WORD 

• WORD 

• WORD 
.WORD 

• WORD 
.WORD 

• WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 

• WORD 

• WORD 

• WORD 
.WORD 
.WORD 



;BAD sector table ADDRESS 
;BAn SPOT TABLE „ „ 

;FIRST word = CYLINDER ADDRESS 

? SECOND WORD = TRACK ♦ SECTOR ADDRESS 
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SEQ 0008 



3U4 
305 
3Ufi 
3U7 
300 
309 
310 
311 
312 
313 
314 
315 
316 
317 
31^ 
319 
320 
321 
322 
323 
324 
325 
326 
327 
328 
329 
330 

III 

333 
334 
335 
336 
337 
338 
339 
340 
341 
342 
343 
344 
345 
346 
347 
348 
349 
^50 
351 
352 
353 
354 
355 
356 
357 
358 
359 



000424' 
000426' 
000430' 
000432' 
000434' 
000436' 
000440' 
000442' 
000444' 
000446' 
000450' 
000452' 
000454' 
000456' 
000460' 
000462' 
000464' 
000466' 
000470' 
000472' 
000474' 
000476' 
000500' 
000502' 



000504' 
000506' 
000510' 
000512' 
000514' 
000516' 
00Q52Q' 
000522' 
00U524' 



000526' 
000530' 
000532' 
000534' 
000536' 



000540' 
000542' 
000544' 



000546 
000550 



177777 
177777 
177777 
177777 
177777 
177777 
177777 
177777 

IWiVi 

177777 
177777 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
QOOOOO 
000000 
000000 



000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 



000010 
000050 
000040 
040020 
040157 



000007 
00QQ43 
000034 



034016 
034136 



DLTCNT: 

clk: 

BLKl: 

cyl: 

cylsay: 

sec: 

CNT: 

CNTl: 

b'UHC: 

qncee: 

badsec: 

feradr: 



-WORD 

• WORD 
.WORD 
.WORD 

• WORD 

• WORD 

• WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
















-1 
-1 
-1 
-1 



-1 
-1 
-1 
-1 
-1 
-1 



;OATA LATE ERROR COUNTER 

;DISK BLOCK COUNTER 
^CALCULATED CYLINDER ADDRESS 
;M0DIFIED CYLINDER ADDRESS FOR RM03 



?CYCLF COUNTER 

?CYCLE COONTERl - DT03 SUPPORT 



jHARDWARE DETECTOR RAO SECTOR 



;D0 NOT CHANGE THE ORDER OF THE NEXT 15 LOCATIONS 
JNEEDED FOR MAP22 ROUTINE 

PA18: 

xmem: 

PA22: 

EA22: 

MRLKKV: 

hblktr: 
mode: 

MLOWCY: 

mhicy: 



;H0LDS 1024 WD RLKS PER TRACK 
;HOLDS BLKS PER CYLINDER 

?HOLDS LAST SECTOR | THAT MILL FIT PER TRACK 



_ IRST 410 CYLINDERS (0-4091 

JBLKS THAT FIT TN LAST 413 CYLINDERS (410-822) 



;BLKS THAT FIT IN 



8. 
40. 

32, 

410.*40. 
413^*40.-25. 



-************«*»* 



;1 BLOCK =4 SECTORS = 1024 

;THESE 5 LOC._GET .MO_YED_Tp ABOVE 5 



n024 WORD BLOCKS/CYLINDER 
;SECTORS/TRACK 8. " 



(256 X 4 ) WORD. 
" IP 16 BIT MODE 



;410. 
;413. 



X 40. (CYLINDER 



- 409' 



, X 40. (CYLINDER 410 

; EXCLUDING THE LAST 25 BLOCKS 



7. 

35. 

28. 



; THESE 5 LOC GET MAPPED 
;1024 WORD (in BIT) BLOi 
? SECTORS/TRACK 7. X 4. 
; ACTUAL SECTORS ON A TRACK 
jPOR 18 BIT WORD FORMAT ARE 30. 

;4i0. X 35. (CYLINDER Q,^ - j.-.^. 
5413. X 35. (CYLINDER 410 - 822) 
IHG THE ■ "~~ 



410.*35- 
4i3.*35,- 



FIRST 5 ABOVE IP 18 BIT MOD 



lCKs7@YLINDER 



; EXCLUDING 



- i% 

LAST 25 BLOCKS 



HMftu DRc/vii sv«;tem exerctsfr 
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360 

m 

363 
364 
365 
366 
367 
36fl 
369 
370 
371 
372 
373 



000552' 
000554' 
000556' 
000560' 
000562* 
000564" 
0005" 
0005 - 
000572 
000574 
000576 
000600 



000000 
000000 

000000 

U' mm 

70* 000000 

000000 

000000 
000000 
000400 



SEQ 0009 



.*«**** **»*«f*»»*** 



ZERO: 

dskadr: 
dvice: 
drive: 

BLKSAV: 

wcwTi: 5 

WCNT2: 

ueiiTNn: o 
Mixov: 

MODI: 
BfJFIN 



;mXOV=-l,IF NOT I RM03 OR RM02 



RLKW 256. 
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374 


imr- 




table: 




375 


000000 


RMCSl: 





376 


001602' 


000000 


RMWC: 





377 


001604' 
001606* 


000000 


rmba: 





378 


000000 


rmda: 





37Q 


001610' 


000000 


RMCS2: 





380 


001612' 


000000 


RMDS: 
RMERl: 





381 


001614' 


000000 





382 


001516' 


000000 


RMAS: 





383 


U01620- 


000000 


rmla: 





384 


001622' 


000000 


RMDB: 
RMMRl: 





3R5 


001624' 


000000 





386 


001626' 


000000 


RMOT: 





38-7 


001630' 


000000 


rmsn: 





388 


001632' 


000000 


rmof: 





389 


001634' 


000000 


RMDC: 





390 


001636 ' 


000000 


RMHR: 





391 


001640' 


000000 


RMMR2: 





392 


001642' 
001644' 
001546' 


000000 


RMER2: 





393 


000000 


RMECl: 





394 


000000 


RMEC2: 





395 


001650' 


000000 


RMBAE: 





396 


001652' 
001654' 
001656' 


000000 


RMCS3: 





397 


000502' 


XFERAO: 


PER ADR 


398 


000470' 
177777 


xferct: 


CNT 


399 


001660' 




177777 
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442 
443 
444 
445 
446 

iil 

449 
450 
451 
452 

ill 

455 



00 
00 
00_ 
002_ _ 
00214 

002154' 

oo^|6g- 

002164' 
002166' 



2S: 
3SS 



1$: 



10$i 



12S: 



13S: 



176462 DAOST: 



176350 
176454 



001002 
000167 



MOV 

MOV 

MOV 

CLR 

CLR 

M0¥ 

MOV 

BIT 

BEQ 

CLR 

NOV 

MOV 

MOV 

MOV 

DEC 

BNE 

MOV 

CLRB 

MOV 

CMPB 

BNE 

MOVB 

MOV 

TSTB 

BEQ 

ASL 

DECB 

BR 

BITB 
BEQ 
BICR 
MSGNS^ 



TST 
BNE 
JMP 

MOV 
MOV 

MOV 

MOV 

JSR 

JSR 

JSR 

BITB 

BEQ 

JMP 

JSR 

BR 

JSR 

TST 
BNE 
BNE 
JMP 




DVIDI^DV 



RO 
12$ 
Rl 
RO 



13$ 

Rl^OVICE 
BEGIN, LDRIVE 



DVICE 
DAOST 
FINI 

DVICE#DRIVE 

SP0INT,R6 

»-l,BLKl 

}-l,UNlTN0 

PC, SETUP 

PC/REZET 

PCeFDUNIT 

»BIT3,FLAG 

-*6 

FINI 

R5, READY 

CT 

PCNOTRDY 

DVICE 
BADFL 

Hni 



;1024, words from mem/iter at lom 
;256 words to mem/ iter at ion 
?3 interrupts/iteration 
} zero end of pass tester 
Iclear data late frror counter 
; setup for 16 bit mode (normal) 

;GET TABLE OF VALUES FOR 16 BIT MODF 
?16 BIT MOHE? 

;nS 1« BIT MODE. CLEAR FMT BIT 

;GET table of VALUES FOR 18 BIT MODE 

/BEGIN OF TABLE ENTRIES 

;N0. OF ENTRIES 

JSTORE AN ENTRY 

yCOUNT IT 

;00 MORE 

;S£T ONE TIME ONLY FLAGS 

? CLEAR FLAGS 

J GET DRIVE INDICATOR 

;IF RM IS LOAD MEDIUM THEN 

;BEGIN 

; GET LOAD-DRIVE NUMBER 

} INITIALIZE DRIVE POINTER 

; WHILE NOT POINTING AT LOAD-DRIVE DO 

; BEGIN 

; POINT TO NEXT DRIVE 
; COUNT SHIFTS 
; END 

; IF LOAD-DRIVE SELECTED THEN 
; BEGIN 

; nROP THE DEVICE 

;ASCII MESSAGE CALL WITH COMMON HEADER 
; END 

;fnd 

;if no drives are selected then 

;BEGIN 

; DROP MODULE 

;end 

; ALSO SAVE IT IN DRIVE 

;RESTaRE STACK POINTER 

; INITIALTZE BLOCK COUNTER 

; INITIALIZE DEVICE COUNTER 

J SET UP CONTROLLER REGISTER 

;RESET CONTROLLER AND DRIVES 

;FOUND THE FIRST DRIVE AVAILABLE 

?N0 DRIVE ? 

;DRIVE AVAILABLE 

;DR0P the MODULE 

;device ready ? 
;yes 

jno /try not ready routnie 
;drop the module •> 

7 HQ 

;RRANCH IF DRIVE AVAILABLE 
;YES DROP MODULE 
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SEO 0012 



462 
463 



467 
468 



476 
477 



002234' 
002240' 
002242' 
002246' 

miv- 

002270' 
002270' 
002276' 
002302' 
002306' 

oomo' 

002316' 
002322; 

O0II3S' 

mm- 

002346' 
002350' 

nmr- 



012767 

112767 
§"5767 
001002 
005267 
016777 
012777 
012777 

4847 67; 
005767 
100455 
016767 
005467 

mm 

012701 



mm 

- 1703 
1203 

\1r ■ 



002371 
002400' 



562 
503 

|8| 

506 
507 
508 
509 
510 
511 



00240: 
0024 

00243 
002436' 

88^«i: 

002454' 

mnv- 

002464' 



061 

ill 

001006 
011112 

mm 

"62702 
-20104 
103010 

m 




132767 
001006 
004567 
000653 
004767 



176242 
176327 
176320 



000100 

mm 



mm 

000000 

176336 



176306 

176320 177334 

000000 177352 

000000 177316 

000000' 000124- 
002636 



175616 176252 



176246 
001104 
000150 
000600' 
000254' 
000200 

000400 

im'i 

177777 



QQ0002 
000004 
000004 



000002 



007044' 000000' 
000400 

882il3 004424 

003020 

002610 

mm 176072 



1$: MOV 

MOV 

2$: MOV 
DEC 
BNE 

BADFL: MOV 
MOVB 
MOVB 
TST 
BNE 
INC 
MOV 
MOV 
MOV 

BADFL2: 

GFTPA 

JSR 

TST 

BMI 

MOV 

NEG 

JSR 

JMP 

MOV 

MOV 

MOV 

ADD 

X 

ADD 
CMP 
BEQ 
CMP 
BNE 
MOV 
MOV 
ADD 
ADD 
CMP 
BHIS 
CMP 
BHIS 
BR 

MSGN$ 
JMP 
JSR 
BITB 
BNE 
JSR 
BR 
JSR 
BP 
MOV 



1$: 



2S: 



3S: 
4S: 



5$: 



002500' 000425 



BR 



#BADSPT/R1 

|64.,R2 

Ijl/tRD* 

#E22./CYL 

f4/DSKADR*l 

80/DSfCADR 

MODI 

.♦6 

DSKADR 

UNITN0,ftRMCS2 

|0,$RMDA 

$/BEGlN/ RBUFVA 
PC,RM03CK 
«IXDV 

RiuFSZ/WCNT2 
WCNT2 
R5,READ 
RETRX 

SBUFIN/Rl 
BADSPT,R2 
128. /R3 
2/R3 

#10/R1 
|-1.(R1) 

J-lr(R2) 

(R1)/(R2) 

rI/R3 

/MEsf4£BEGlN 
PINT 

PC/FnUNIT 
|BIT3/FLAG 

PC/NOTRDY 
BADFL 

#-l/UNITNO 
RSTRTl 



;TABLE ADDRESS 
;32 WORDS 
;RESET TO -1, 

;decrement one word 
;branch if not done 

^RETRIEVE THE BAD SPOT FILE 
;FR0M the pack CYL-822/ TRK-4 
;SEC-0(SEC-12 FOR USER BAD SPOT FILE) 
;IN 16 BIT MODE ? 

;br»nch if it is 

; otherwise start from sector 1 

;L0AD DRIVE NUMBER 
J SET TO CYL 

;SET TO TRK 0/SFC AT START TIME 

SGET PHYSICAL ADDRESS FROM 16-BIT RBUFVA 
;CHECK IF RM03 OR RM02 

;not them ? 
;brrnch if not 

?W0RD CTR 

;2's complement 

;read one Sector at a time 

;branch if error 

;BUFFER address 

;table address 

;MAX 16 bad SECTORS/ EACH SECTOR DEFINED BY TWO 

;last address 

;end of bad spot file 

;last address of bad spot file 

?BAD sector starts at 5TH WORD 
jTABLE is EMPTY ? 

;branch if it is 

;entry for bad spot table ? 

jrranch if not 

;load cylinder address 

;L0AD the track and sector ADnRESSES 

? as JUST pointer 

JADJUST pointer 

;end of table ? 
;branch if so 

?0VER 32 bad sectors RECORDED ? 
?BRANCH if SO 

;loop back 

;message: over 32 bad sectors 
;drop the modules 
jfound next drive 
;drvie available ? 
;branch if not 
;let tjrive ready 
;branch if drive ready 
;tRY drive not ready 
?branch if successful 
;reset unit number 

;all on line orivf has been rftpived the bad spot file 

support - DT03 



HMAD OEC/Xll 
XRMIlDO.Pil 



SYSTEM EXERCISER HODflLS 
12-DEC-78 16:17 
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512 
513 
514 
515 
«)16 
517 



002b02- 105267 
002506' 105267 
002512' 122767 
002520- 101263 



176046 
176042 



00035 176034 



87050' 
0306 



000000* 



I NCR DSKADP 
INCB OSKAOR 
CMPB #30./0SiCADR 
BHI BA0rL2 
MSGN$,MESl5cBEGIN 



SEQ 0013 



J ADJUST 2 SECTOR 
; ADJUST TWO SECTOR 

^SECTORS 0,2,4, 30, ALL TRIED 

^BRANCH If NOT 

SMESSAGE : RETRIEVE FAILS 

)DROP THE MODULES 



«MAD DEC/Xll SYSTEM EXERCISER MnOULs; 
XRMADO.Pll 12-DEC-78 16:17 
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SEQ 0014 



Sin 

52? 
521 
522 
523 
524 
525 
526 
527 
52B 
529 
bJO 
531 
532 
533 
534 
535 
536 
537 
53B 
539 
540 
541 
542 
543 
544 
545 
546 
547 
548 
540 
550 
551 
552 
553 



002534' 
002540' 
002542' 
002546' 
002550' 

mur- 

002562' 
002570' 
002574' 
002602' 
002602' 
002606' 
002614' 
002620' 
002624' 

002632' 
002636' 
002640' 
002644' 
002652' 
002654' 
002662' 
002664' 
002670' 
002674' 

002706' 
002712' 
002716' 
002722' 
002726" 
002732' 



005767 
001005 
005767 
001002 
000167 

hun^ 

005467 
016767 

104414 

004767 
016777 

005767 
001002 
000167 
132767 
001404 
012767 
000744 
004767 
004567 
000402 
004767 
005067 
005067 
005067 
005067 
QQ5067 
005067 
004567 



TST 
BNE 
TST 
BNE 
JMP 



CNTl 

RSTRTl 

CNT 

RSTRTl 

START 



000000' 000124' 
175344 176000 



175774 
175660 

OOOQOO' 

175330 

175746 

002376 

175742 

175720 



175760 



175752 



000010 004226 

177777 175710 

002250 
002606 

002376 
004156 
004154 
004152 
004150 
004146 
004144 
000466 



STRT: 
STRTl: 



nIxt: 



1$: 

ABy: 

1$: 



GETPA$,PEGIN, 
MOV 
MEG 
MOV 



RBUFVA 



RBUFSZ,WCNT2 
HCNT2 

BLK1,PLKSAV 



GWBUFS, BEGIN 



MOV 
NEG 
JSR 
MOV 

TST 

BNE 

JMP 

BITB 

BEQ 

MOV 

BR 

JSR 

JSR 

BR 

JSR 

CLR 

CLR 

CLR 

CLR 

CLR 

CLR 

JSR 



WBUFSZ,HCNT1 
WCNTl 
PC,FD0NIT 
UNITN0,8RMCS2 

DVICE 

fImi 

fBlT3,FLAG 
aB W 

#-l,0NITN0 
STRT 

PC,RM03CK 
R5, READY 

pLhotrdy 

TRYl 

TRY3 

TRY5 

TRY7 

TRY9 

TRYll 

R5,0PDATT 



/ SUPPORT 
/ FOR 
I OT03 
?♦ / BUS 

/ SWITCH 
?♦/ OPTION 

5GET PHYSICAL ADDRESS FROM 16-BIT 
; SAVE READ BUFFER SIZE 
; GET THE 2'S COMPLEMENT 
>INIT BLOCK COUNTER 

;GET WRITE BUFFER INFORMATION 

; SAVE WRITE BUFFER SIZE 

; GET THE 2'S COMPLEMENT 

; FIND UNIT I 

;GET unit I SO BOTH PORTS 

?WILL BE LOOKING FOR SAME DRIVE 

? ANY DRIVES LEFT ? 

; YES 

; NO DROP MODULE 
;M0RE DRIVES ON SYS? 
JYES 

;reset drive number 

;YES correct setup for duel PORT RETURN 
?UPDATE DSK ADDR 
? IS DRIVE READY ? 
; YES, CONTINUE 

; NOT READY, GO WAIT UNTIL IT IS 

? ZERO RETRY COUNTERS 



;T0 SEE IF RM03 OR RM02 

;for the selected drive 



RMAD DEC/Xll SYSTEM EXERCISER NODULE 
KRMADO«PU i2-DEC-78 16;17 



000272 



004124 
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GOkt 
gob: 



JxTl: 

RETRYl : 



006766" 



000000" 006774' 



104403 
000167 



000000' 
000000 



007002' 



IS: 

RETRY2: 
is: 

RETRY3: 
is: 



JSR 

J MP 

8TTB 

BEQ 

BTCB 

MOY 

JMP 

JSR 

JMP 

JSR 

JMP 

CDATAS, 
.♦2 



R5,iRITE 
RETRYl 
|B1T2^FLAG 
GOA 

i-l,BLKl 
STRT 

RS^WRITCK 
RETRY2 
R5*RE4D 
RETRY3 
BEGIN^RBHFPA 



INC CNTl 
ENDITS, BEGIN 



ENDS, BEGIN 



JMP NEXT 

TST BADSEC 

BEQ .♦10- 

CLR BADSEC 

JMP NEXTA 

INCB TRYl 

CMPB #3#TRY1 

BEQ IS 

JMP GOC 

MSGNS/BEGIN£EXCED1 

JMP NEXT A 

IMCB TRY2 

CMPB #3,TRY2 

BEQ IS 

JMP GOA 

MSGN$,BEGIN#EXCED2 

JMP WEXTA 

IMCB TRY3 

CMPB #3/TRY3 

BEQ IS 

JMP GOB 

MSGNS, BEGIN, EXCED3 

JMP NEXTA 



WRITE SOME DATA 

IF ERRORS, TRY IT AGAIN 

DISK OVERFLOW ? 

NO/ CONTINUE 

YES, CLEAR OVERFLOW FLAG 
RESET BLOCK # 
CONTI NUE 

WRITE-CHECK THE DATA 

IF ERRORS, TRY AGAIN 

HEAD THE UATA WRITTEN 

IF ERRORS, TRY AGAIN 

REQUEST FOR MONITOR TO CHECK DATA 

IF ERROR, CONTINUE 

,*-BUMP INDICATOR FOR DT03 
^SIGNAL END OF ITERATION, 
-MONITOR SHALL TEST END OF PASS 



> DROP THE MODULE 

;GET NEXT DRIYE 

;BAn SECTOR DETECTED ? 

;detore 

;clear the flag 
;exit 

? COONT THE RETRYS 
; LIMIT EXCEEDED 
; YES 

; NO RETRY 



; ASCII MESSAGE CALL WITH COMMON HEADER 

; GO TO NEXT DRIVE 

; COUNT THE RETRYS 

} LIMIT EXCEEDED 

; YES 

; NO RETRY 

?ASCII MESSAGE CALL WITH COMMON HEADER 
; GO TO NEXT DRIVE 
; COUNT THE RETRYS 
; LIMIT EXCEEDED 
; YES 

; NO RETRY 

;ASCII MESSAGE CALL WITH COMMON HEADER 
? GO TO NEXT DRIVE 



RHAD DEC/Xll SYSTEM EXERCISER MODULE 
XRMADO.Pll 12-DEC-78 16:17 
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I8i 

603 
604 
605 
606 
607 
608 
609 

11? 

612 

t\l 

615 
616 
617 
61 B 



0Q3296: 0^2737 



003214' 



003216- 004767 
003222- 104403 
003230- 000167 



000001 174602 NEXTA: 

,,8o?d- 007024- 
177364 



SEQ 0016 



BIT #BIT0,SR1 ; DROP THE DRIVE 

BEQ Is ? NO, SKIP TO NEXT DRIVE 

JSR PC.OROP ? YES, DROP OFFENDING DRIVE 

MSGNS, BEGIN, DRP ;ASCII MESSAGE CALL WITH COMMON HEADER 

JMP NEXT ; GO ON TO NEXT DRIVE 



-MACRO 

LINEUP 

MOV 

ASL 

ASL 

ASL 

ASL 

MOV 

.ENDM 



LINEUP gA 

EABITS 

EABITS,R0 

RO 

RO 

RO 

RO 

RO,XHEM 
LINEUP 



LINE UP EA BITS FOR RHCSl 

GET EXTENDED MEMORY BITS 
SHIFT 4 PLACES TO THE LEFT 
TO LINE UP WITH RHCSl 



SAVE THE SHIFTED BITS 



KMAD OEC/Xll SYSTEM EXERCISER MODULE 
KRMADO.Pll 12-DfeC-7B 1^:17 
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SEQ 0017 



619 
620 
621 
622 
623 
624 
625 
626 

lU 

62q 

630 
631 
632 
633 
634 
635 
636 
637 
630 
6 39 
64U 
641 
642 
643 
644 
645 
646 
647 
6 4fl 
fi40 
650 
661 
652 
653 
654 
655 
656 
657 
658 
659 
660 
661 
662 
663 
664 
665 
666 
667 
66R 
669 



R^ DISK DRIVERS 



003234' 
003242' 
003250' 
003256' 

mw- 

003276' 

003304' 
003310' 
003312- 
003314^ 

OO^S' 
003324' 
003330' 
003336' 
003344' 
003352' 
003360' 
003364' 
003372' 

003400' 
003404' 
003406 ' 
003410' 
003412' 
003414' 
003420' 
003424' 
003430' 

003432' 
003440' 
003446' 
003454' 
003462' 
003466' 
003474' 

003502' 
003506' 
003510' 
003512' 
003514' 
003516' 
003522' 



012767 
016777 
016777 
016777 
004767 
016777 
016767 

016700 
006300 
006300 
006300 
006300 
010067 
000167 
Q12767 
016777 
016777 

mill 

016777 
016767 

016700 
006300 
006300 
006300 
006300 
010067 
000167 
004767 
000205 

012767 
016777 
016777 
016777 
004767 
016777 
016767 

016700 
006300 
006300 
006300 
006300 
010067 
000442 



000161 
175320 
174660 
175272 
001650 
175166 
175162 

174626 



175162 
000300 
000151 
175224 
174564 
175176 
001554 
175072 
175066 

174532 



175066 
000204 
001010 



000171 
175124 
174454 
175074 
0Q1452 
174770 
174764 

174422 



175232 

mu 

17632? 

176336 
175156 



175136 WRITCK; 
176236 
176232 
176226 

17624? 
175062 



OPOATT! 

175034 READ: 
176134 
176130 
176124 

176140 
174760 



MOV 
MOV 
MOV 
MOV 
JSR 
MOV 
MOV 

LINEUP 

MOV 

ASL 

ASL 

ASL 

ASL 

MOV 

JMP 

MOV 

MOV 

MOV 

MOV 

JSR 

MOV 

MOV 

LINEUP 

MOV 

ASL 

ASL 

ASL 

ASL 

MOV 

JMP 

JSR 

RTS 

MOV 
MOV 
MOV 
MOV 
JSR 
MOV 
MOV 

LINEUP 

MOV 

ASL 

ASL 

ASL 

ASL 

MOV 

BR 



#161,FUNC 

WCNtUgRHWC 

WBUFPA/eRMBA 

DSKAOR,|RMDl 

PC,RM03CK 

CYUaRMDC 

CYLSAV,CYL 

UBUPEA 

WBUFEArRO 

RO 

RO 

RO 

RO 

RO#XMEM 

GOGO 

#151,FUNC 

WCNT1,0RMWC 

WBUFPA^flRMBA 

DSKADR,§RMDA 

PC,RM03CK 

CYLtftRMDC 

CYLSilV,CYL 

WBUFEA 

riRUFEA,RO 

RO 

RO 

RO 

RO 

ROfXMEM 

GOGO 
PC/BLOCfC 

R5 

#171-FUNC 

wcnt|,§rmwc 
rbufpa^ srmba 

DSKADRs^ftMDA 
PC,RM03CK 



CvC-aRMDC 
CYLSAV,^- 



rbufea 

RgUFEA, 

RO 
RO 
RO 

RO^XMEM 
GOGO 



CYL 



} LOAD WRITE FUNCTION 

; LOAD WORD COOMT^^ 

; LOAD BUFFER ADDRESS 

} LOAD DISK ADDRESS 

} CHECK FOR RM03 DRIVE 

; LOAD CYLINDER ADDRESS „ „ 

; RESTORE CALCULATED CYLINDER ADDRESS 

? GET EXTENDED MEMORY BITS 

; SHIFT 4 PLACES TO THE LEFT 

; TO LINE UP WITH RHCSl 



SAVE THE SHIFTED BITS 
CONTINUE 

LOAn WRITE-CHECK FUNCTION 

LOAD WORD COUNT 

LOAD BUFFER ADDRESS 

LOAD DISK ADDRESS 

CHECK FOR RM03 DRIVE 

LOAD CYLINDER ADDRESS 

RESTORE CALCULATED CYLINDER ADDRESS 

GET EXTENDED MEMORY BITS 
SHIFT 4 PLACES TO THE LEFT 
TO LINE UP WITH RHCSl 



SAVE THE SHIFTED BITS 
CONTINUE 



LOAD READ FUNCTION 

LOAD WORD COUNT 

LOAD BUFFER ADDRESS 

LOAD DISK ADDRESS 

CHECK FOR RM03 DRIVE 

LOAD CYLINDER ADDRESS 

RESTORE CALCULATED CYLINDER ADDRESS 

GET EXTENDED MEMORY BITS 
SHIFT 4 PLACES TO THE LEFT 
TO LINE UP WITH RKCSl 



SAVE THE SHIFTED BITS 
CONTINUE 



RMAU DEC/Xll SYSTEM EXERCISER MODULE 
XRMAD0,P11 12-0EC-78 16:17 
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SEQ 0018 



670 
671 
672 
673 
674 
675 
676 
677 
670 
679 
680 
681 
682 
683 
6R4 
685 
6B6 
687 
6BR 
689 

6qo 

691 
692 
693 
694 
695 
696 
697 
698 
699 
700 
701 
702 
703 
704 
705 
706 
707 
708 
709 

712 
713 
714 
715 



003524 ' 
003532' 
003540' 
003542' 
003544' 
003550' 
003554' 
003562' 
003570' 
003572' 
003576- 
003602' 
003604' 
003612' 
003620' 
003626' 



016777 
012777 
000240 
000240 
104407 
104407 
012777 
032777 
001005 
104407 
104407 
000767 
012777 
012777 
016777 
000205 



003630' 016777 



003636' 
0U3644' 
003652' 
003654' 
003662' 
003666' 
003672' 
003676' 
003702' 
003710' 
003716' 
003724' 
003732' 
003736' 
00^744' 
003752' 
003760* 10441 

003764' 

003764' 



012777 
032767 
001434 
017767 
006267 
006267 
006267 
006267 
104416 
016777 
016777 
04 27 67 
000367 
016767 
056767 
016777 
00 



003772' 
003776' 
004000' 
004002' 
004004' 



004567 
000205 
005725 
005725 
000205 



175042 

000011 



000000- 
000000' 
000021 
000200 

000000' 
000000' 

177777 
040000 
174752 



174736 
003764' 

001000 

175724 

174620 

174614 

174610 

174604 

000000- 

174574 

174570 

000034 

174554 

174550 

174536 

174516 

000000- 



000000' 
000116 



176056 
176040 



176016 
176010 



176004 
175760 
176004 



175752 
174144 
174204 

174622 



000504' 
175666 
175724 
174560 

174542 
174522 
175620 



003772' 



is: 



2S: 



MOV 
MOV 
NOP 
NOP 
BREAK5^ 
BREAKS, 
MOV 
BIT 
ONE 

BREAKS/ 

BREAKS/ 

BR 

MOV 

NOV 

MOV 

RTS 



UNITNn,gRwCS2 

#llr9RMCSl 



BEGIN 
BEGIN 
pi/jaRMCSl 

|bit7,§rmcsi 

BEGIN 
BEGIN 
IS 

|Blff4,aRMCSl 

flODl#flR^^OF 

R5 



} LOAD UNIT ADDRESS 
? ISSUE A DRIVE CLEAR 
;WAIT 

;F0R DRIVE CLEAR TO FINISH 
^TEMPORARY RETURN TO MONITOR.... 
JTHEN CONTINUE AT NEXT INSTRUCTION. 
; ISSUE A PACK ACK 

; FUNCTION DONE ? 
? YES/ CONTINUE 

^TEMPORARY RETURN TO MONITOR,... 
;THEN continue at next INSTRUCTION. 
; NO/ WAIT TILL DONE 
?CLEAR AS BIT 

} CLEAR ANY CONTROLLER ERRORS 
; SET BIT FOR 11 FORMAT 
? RETURN 



is: 

NTRHPTl 

1$: 



MOV 
MOV 
BIT 
BEQ 
MOV 
ASR 
ASR 
ASR 
ASR 

MAP22S 

MOV 

MOV 

3IC 

SWAB 

MOV 

BIS 

MOV 

EXITS/ 



UNITN0/aRMCS2 

pTRUPT/giVECTOR 

IaDDR22/RES1 

9RMBA/PA18 

XMEM 

XMEM 

XMEM 

XMEM 

BEGIN/PA18 
PA22/0RMBA 
EA22/|rMBAE 

EA22/XMEM 
XMEM/FUNC 
FUNC/«RMCS1 
BEGIN 



I LOAD UNIT SELECT 
; SET INTERUPT ENTRY POINTER 

;ii/70? 

?N0 

?GET 18 BIT ADOR 

;SHIFT EA BITS TO POSITION 4/5 



; GET 22-BIT ADDR FROM 18-BIT ADOR 
;LOAD BA REG 
;L0AD BAE REG 
;CLEAR UNWANTED BITS 
;L0AD into BITS 8/9 

JLOAD XMEM TO SET INTO FUNCTION CODE 
;L0AD EXTENDED MEMORY BITS 
;EXECUTE THE FUNCTION 

;EXIT TO MONITOR- MODULE WAIT FOR INTERRUPT. 



f»IRO$/BEGlN/l<; 



QUEUE UP TO CONTINUE AT IS AND RTI 



JSR 
RTS 
TST 
TST 
RTS 



R5/ERR0RS 



; GO CHECK FOR ERRORS 

; ERRORS DETECTED/ RETURN 

? NO ERRORS/ SKIP RETRY 

; RETURN OK 



RMiD DEC/Ill SfSTEM EXERCISER MODULE 
KRHID0«P11 12-0EC-78 I6sl7 

174446 

Jooi^2 00305 

000001 00304 

174464 



000004 003024 
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000001 
174504 



i8*Jol4' 000572' 
004112' 000207 



4$: 

5S: 
I 

drop: 

IS: 

2S: 



M0¥ 

MO^ 

BITB 

BEQ 

BICR 

MOV 

BEQ 

TST 

HTS 

BTSB 

HTS 



MOV 
MOV 
BEQ 
ASL 
DEC 
BNE 
BIC 

. ***** 



BLKl^RO 
|BIT1^FLAG 

MHICY,R1 

|bit2,fl&g 



u 
n 

If 



SA¥E THE CURRENT BLOCK NUMBER 

GET THE TRANSFER SI7E 

PLENTY OF ROOM LEFT ? 

YES, CONTINUE 

CLEAR 32K INDICATOR 

LOAD MAT. NUMBER OF BLOCKS 
EXHATIST OF ALL BLOCKS 

YES, MUST BE A REAL ERROR 

RETURN* ERROR 
, SET OVERFLOS FLAG 
} RETURN OK 



-Rl ; INITIALIZE DROP PICKER 

1TNO,RO I GET THE DRIVE NUMBER 

; IF DRIVE GO DROP IT 
; POINT TO NEXT DRIVE 
? IS THIS THE ONE ? 
; NO, LOOK AGAIN 
,PVICE ; DROP THE DRIVE 

%****** ************************ ******** 



********** 



OTO A$, BEGIN, UNITNO^ADRl 



TORE AT ADRl 



ft***ft* 
PC 



A*********************************************** 

; RETURN 



RMAD DEC/Xll SYSTEM EXERCISER MODULE 
XRMADO.Pll 
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m 

746 
747 
748 
749 
750 
751 
752 
753 
754 
755 
756 
757 
758 
759 
760 
761 
762 

Ml 

765 
766 
767 
768 
769 

772 
773 

Ws 

776 
777 
778 
779 
780 
781 
782 
783 
784 
785 
786 
787 
788 

?I2 

791 

79? 
793 
794 
795 

?ll 

79B 
799 



00 



-04124' 

mm: 

004140' 
004142' 
004146' 
004150' 
004156' 
004160' 
004164' 
004170' 

004206' 
004214' 
004216' 
004224' 
004226' 
004234' 
004236' 
004244' 
004246' 
004254' 
004256- 
004262' 
004264' 

004270' 

004276' 

mm'- 

004306' 

miil 
miw- 

004326' 

iml'- 

004336' 

imr- 

004350' 
004354- 



005067 
005777 
100402 
000167 
032777 
001403 
004567 
000532 
032777 
001126 
004767 
"05777 
,00012 
005267 
032767 
OOlir- 



i 

7 

104403 
000450 
032777 
001035 
032777 
001035 
032777 
001015 
032777 
001030 
005777 

881867 

104405 

000445 

032777 

hmt 

000407 



174360 
175454 

000302 
001000 

177640 

002000 

001430 
175420 

umt 

000000' 

020000 

000400 

040000 

040000 

175334 

173616 

000000' 



175454 
175434 



173612 

007010' 

175354 

175354 

175334 

175336 



001600' 



ERRORS: 

22$: 

1$: 



11$: 



100000 175334 
000000' 006752' 

000000' 006756' 



000000' 006762' 
17525 4 



001060 
175246 
000200 



0552' 175230 
0001 173506 



004400' 104406 000000' 001600' 



004406' 
004412' 



010067 
004567! 



175210 
177106 



2S: 

35: 

4$: 
5$: 

6S: 
7$: 

8$: 



CLR 

TST 

BMI 

JMP 

BIT 

BEQ 

JSR 

BR 

BIT 

BNE 

JSR 

TST 

BPL 

INC 

BIT 

BNE 

MSGNS 

BR 

BIT 

BNE 

BIT 

BNE 

BIT 

BNE 

BIT 

BNE 

TST 

BNE 

CLR 

.***: 

HRDEI 



BADSEC 

|RMCS1 



.-«,YNC 
|BlT9,@RHERl 

rI^room 

RESYNC 
«BIT10,@RMDS 
RESYNC 
PC*ERSUB1 
aRfiCS2 
"I 

DLTCNT 
|BIT2,SR1 

,begIn,dlterr 

^^IT13,3RMCS1 



§R 



|BIT8,eRMCS2 
|ilT14,?RMCSl 
|llT14,»RMDS 
I^MAS 

ftiiS*^* *******; 

$*BEGIN,TABLE 

*******%******** 

8$ 

|RIT15,§RMER2 



BIT ttR 
BNE 9$ 
MSGNS, BEGIN, TRERR 
BR 5$ 

MSGNS, BEG1N,MCPERR 
BR 5$ 

MSGNS, BEGIN,MDPFRR 
TST 

Bis 

JSR 
MOV 
BIT 
BNE 
MOV 
MOV 
******* 



L n,nu 
|RMAS 

P?#WHO 
RMDB.RO 
|8IT7,§RMCS2 

#IeR0cRMDR 
llfERRTYP 
************* 



iCLEAR THE BAD SECTOR FLAG 

ATTENTION OR ERROR *> 
> Y£s 

(NO GO ON TO NEXT FUNTION 
ADDRESS OVERFLOW ? 
NO, CONTINUE 

YES, IS IT A REAL ERROR ? 
NO, CONTINUE 
fDID LBT SET? 
1 YES 

LOAD ERROR INFORMATION 
IS THIS A DATA LATE ERROR? 

;nq 

(ADD 1 TO DATA LATE COUNTER 
iTYPE ERROR AND COUNT IT? 
>N0 

ASCII MESSAGE CALL WITH COMMON HEADER 
fCONT 

MASSBUS CONTROL PARITY ERROR "> 
YES 

MASSBUS DATA PARITY ERROR ? 
YES 

TRANSFER ERROR ? 
YES 

ANY DRIVE ERRORS ? 
YE S 

ANY ATTENTIONS ACTIVE ? 
/ YES^ CONTINUE 
SUNKNOVN ERROR 

r********* ********************* ************ 

; SPECIAL CONDITION SET BUT NO REASON FOUND 
t* ***************************** ************ 

? RETURN 

;A BAD SPOT ? ****** 
;BRANCH IF SO ******* 
: ASCII MESSAGE CALL WITH COMMON HEADER 
; GO DUMP REGISTERS 

;ASCII MESSAGE CALL WITH COMMON HEADER 
; GO DUMP REGISTERS 

JASCII MESSAGE CALL WITH COMMON HEADER 
; ANY ATTENTIONS ACTIVE ? 
; NO, CONTINUE 

; YES, FIND OUT WHICH DRIVE IT IS 
; SAVE ADDRESS OF DATA BUFFER 
} CAN DATA BUFFER BE READ ? 
! YES, CONTINUE 

NO, LOAD ADDRESS OF ZERO 

~ - — - p.R RQR 

***************************** 



0FERS,BEGIN-TABLE 
*****%*****%*******< 



DUMP RHll AND RM REGISTERS 



iov 

JSR 



************ ************************ **♦**♦♦* 



RO,RHDB 
R5, CLEAR 



; RESTORE DATA BUFFER ADDRESS 
;G0 CLEAR OUT ERRORS 



RMAD DEC nil 
XRMftDO.Pll 



SYSTEM EXERCISER MODULE 
12-nEC-78 16:17 
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SEQ 0021 



ROO 

802 
O03 



004416' 
004420' 
004424' 
004432' 



000205 
004567 
012767 
000205 



RTS 
JSR 
MOV 

RTS 



R5 

H5, CLEAR 
|-1,BADSEC 



; ERRORS DETECTED, RETURN 
?CLEAR THE BAD SPOT ERROR 

>set the bad spot error flag 
;exit 



RMAD DEC/Xll SYSTEM EXERCISER MODULR 
XRMADO.Pll 12-r)EC-78 16sl7 
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804 
R05 
806 
n07 
808 
R0<? 
810 
Pll 
ei2 
813 
R14 
815 
P16 
R17 
818 
B19 
820 
R21 
822 
«23 
824 
825 
826 

829 
«30 

m 

833 
834 
835 
836 

838 
P30 
840 



004434' 
004436' 



004440' 
004444' 
004452' 
004454' 
004462' 
004464' 
004470' 
004476' 

004500' 
004506* 
004510- 
004514 



005725 
000205 



005267 
132767 
001012 
026767 

ooloB 

15 2767 
000411 



JQ1005 

I— 

016700 



050|J 



' 1427 




004602' 
004610' 
004616' 



017767 
017767 
000207 



174014 
000002 

174042 

173770 
000002 



026767 174020 



J744 
_ i002 
173732 
174042 

174032 
173714 



173712 
173776 
000620 

0il767 175042 

004574' 062767 000001 



175000 
174772 



002426 
173776 

002402 

173752 

002355 

175046 

175050 

173666 

173660 

173744 
173736 



TST 
RTS 



R5) + 



?SKIP RETRY 
} RRTURN OK 



?THIS ROUTINE DETERMINES IF THERE iS ENOUGH ROOM ON THE DISK TO 
;D0 another transfer, if not, PROGRAM GOES TO RESYNC TO 
; ALLOW BOTH PROCESSORS TO RESYNC AND TO RESTART^ 



is: 
2S: 



IMC 

BITB 

BNE 

CMP 

BHI 

CLH 

BISB 

BR 

CMP 

BHI 

CLR 

BICB 

MOV 

TST 

BEQ 

MOV 

CLH 

CLR 

CLR 

CMP 

BLOS 

MOV 

MOV 

ADD 

MOV 
MOV 
RTS 



BLKl 

|BIT1,FLAG 
MLOWCY^ BLKl 

bEki 

|BITI^FLAG 

MHICY^BLKI 
2$ 

BLKl 

MIXDV 
CONVRT 

UNITN0/.§RMCS2 
CYL 

CYLSAV 
DSKADR 
|400-,§RMDC 

ft^MDC^CYL 

SRMDC,CYLSAV 

ll^CYL 

^RMDA^DSKADR 
pRMDA^DSKADR 



STEP TO NEXT BLOCK 

BLOCK i IN CYLINDER 410. OR HIGHER 

YES, GO ADJUST BLOCK # 

BLOCK I IN CYLINDER 410« OR LOWER ? 

YES^ RETURN 

NO, RESET BLOCK # 

SET HIGH RANGE FLAG 



? BLOCK « IN WITHIN RANGE ? 

; YES, RETURN 

; NO, RESET BLOCK # 

; SET FLAG TO LOWER RANGE FOR NES PACK CYCLE 

^TRANSFER PAREMETER FOR CONVRT 

; IS AN RH03/RM02 7 

;BRANCH IF SO 

?L0AD THE DRIVE ADDRESS 

?RESET CYLINDER ADDRESS 

;RESET the SAVED CYLINDER ADDRESS 

; RESET THE TRACK AND SECTOR ADDRESS 

?OVER CYL 400 ? 

?BRANCH IF SO 

;THE NUMBER CAN MODIFY TO INCREMENT 
-THE CYLINDER ADDRESS 



mhQ OEC/Kll SYSTEM EIERCISER MODULE 
lRM|O0«Pil 12"DEC'-78 15;17 

841 
842 
843 
044 
8<5 
846 
847 




004552* 
104654' 

004674*' 
004676" 

mil 

)04714" 

mi" 



13276 

160100 
000772 
022767 

IW 

20002 




173570 

001440 
000632 

002155 



^^94 
895 

P96 



000005 
173536 
000004 

mm 

173444 
000004 

nnu 

000002 

173410 

000003 

173372 

177777 

000003 
000002 



173556 
173546 



000004 173524 



002125 

173502 

173472 
173552 
173545 



3SS 



4SS 



000254" BROLOP; 



is; 



000254" 2$t 



173376 
000254" 



173352 



ill 

5$: 



CLR 
CLR 
CLRB 
MOV 

Mn¥ 

BITS 

BEQ 

M0¥ 

CMP 

BLO 

INC 

SUB 

BR 

cm 

BHi 
MOV 
CHP 
8LT 

SUB 

BR 

TS? 

BEQ 

ADD 

DEC 

BGT 

cm 

BGT 
SOB 
NO? 
MO¥R 

CLR 

CMP 

BEQ 

aOD 

BR 

ADD 

CMPB 

BEQ 

km 

BR 

CMPP 

BHI 

ADD 

CMPR 

BLO 

MOV 

iuB 

ADD 
TST 
BPL 



SEC 
TRK 

MBLKTR^Ri 
MBLKR¥g.R2 

cIl 

Rl^RO 

|llO«^C¥L 

So^R2 

3S 

TRK 

R2^R0 

P 

MODE^SEC 

SEC^DSKAUR 

TRK^0SKADR4-1 

RO 

C¥L,B§DSPTCR0> 



RO 



I CLEAR DISK ADDRESSES 



LOAD REG« 1 MITH BLK PER TRSCK 



IN IT 



II' 

|2^R0 

TRK^BaOSpT-s-lCRO) 

SeC^,BADSPTCRO) 
|L SEC 

SEC,BADSPT(R0) 

Pl^RO 

13, SEC 

»4-6 



, REG HhS BLKl (BLOCK #) 

I LOAD REG» 2 yiTH BLK PER 

; BLOCK I ON CYLINDER 410» OR LOWER ? 

} YES^, CONTINUE 

I NO* LOAD HIGH BASE ?ALIJF FOR CYLINDER ADR« 

I CORRECT CYLINOER FOOND ? 

} ¥ES^ CONTINUE 

I HO. STEP TO NEXT CYLINDER 

; SUBTRACT 1 CYLINDER FROM BLOCK If 

5 CONTINUE UNTIL CORRECT CYLINDER IS FOUND 

|n0T 0¥ER CYL boo FOR PROTECT BAD SE»FILE 

IRESET TO 410 

> CORRECT TRACK FOUND ? 

I YES*, CONTINUE 

? NO, STEP TO NEXT TRACK 

; SUBTRACT 1 TRACK FROM BLOCK # 

; COMTIMUE UNTIL CORRECT TRACK IS FOUHU 

; CORRECT SECTOR FOUND ? 

I ¥FS, CONTINUE 

I NO, STEP TO NEXT 1024 WORDS 

} DECREASE BLOCK f R¥ 1 

} CONTINUE UNTIL CORRECT SECTOR IS FOUND 

f LAS? TRACK "> 

? N0« COfiTINUF 

} YES, LAST SECTOR ? 

I ^10, COMTIMUE 

P YESg ADJUST SECTOR SO NO OVERFLOW 
f LOAD SECTOR INTO DISK ADDRESS 
} LOAD TRACK INTO DISK ADDRESS 

;CKFCK THE THE SELECT ADDRESS IS IN THE PAD SPOT ? 
; INDEX VALUE TO THE BAD SPOT TABLE 
^CYLINDER ADDRESS IN THE SPOT TABLE? 



YES 

CH - 



HECK THE NEXT SPOT 
COMMON BRAMCH POINT 
CHECK THE ?RAK AMD SEC 

ION THE BID SPOT TRACK ? 
¥E S 

CHECK THE NEXT SPOT 
COMMON BRANCH POINT 

CHECK THE SECTOR ADDRESS IS IN THIS BLOCK RANGE 

NO . NOT IN THIS BLOCK 

MITHIN THE BLOCK ? 

NOT IN THE BLOCK IF LESS 

>ERROR FLAG 

-COMMON BRANCH POINT 

RESTORE THE SECTOR VALUE 

CHECK NEXT BAD SPOT 

MINUS SIGN SET, IF ON A BAD SPOT 

SKIP CURRENT SELECTED BLOCK IF BAD SPOT 



RMAD DEC/Ill SYSTEM EXERCISER MODULE 
XRMAOO^Pll 12-DEC-78 16Sl7 

177310 
000200 
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012767 
000207 



JMP 
CMP 
BHI 

RTS 



BLOCK 

|12R»,R0 

BAOLOP 

PC 



177777 173354 



HOV 
CLR 
CMP 
BEQ 
CMP 
BEQ 
CMP 
BEQ 
CMP 
BEQ 

JSR 

MSGN$^DRP1, BEGIN 
TST £SP)* 

(SP)+,R 



C¥L,C¥LSA¥ 
MIXDV 

|24025,@R^DT 
|§0025,»RM0T 
|l4024,gR^DT 
|fo024,iRMOr 



p^n 



MOV 

JMP 

M0¥ 
RTS 



NEXT 

|-1,MTXDV 



^SELECT OTHER BLOCK 

5FND OF TABLE 
?N0, THEN BRANCH BACK 
; RRTURN 



JSAVE THE CALCULATED ADDRESS 
PRESET MIX DRIVE FLAG 
;DUAL PROT PM02 ? 

;branch if so 
jsihgle port rm02 ? 
;branch if so 
idual port rm03 ? 

;YES 

;no«««siwgle pgr? RM03 ? 

?YES 

?0R0P THE DRIVE ?1F NOT A RM03 
;MESSAGE - NOT A RMOS 

;CLEAR STACK FOR WHOMEVER CALLING RM03CK 
JCLEAR STACK FOR WHOMEVER CALLING "WRITE", 
;"MRITCK" AND "READ" ROUTINES 
;T0 NEXT DRIVE 

?SET NON~RM03,RM02 DRIVE FLAG 



RMAD DF;c/K11 SYSTKM EXERCISER MODULE 
KRMADO.Pll 12-DFC-'?R 16:17 



MACVll 30A(1052) 12-DEC-78 16:22 PAGE 27 



SEQ 0025 




INC 

BICR 

CMP 

BLE 

ASR 

BCC 

BR 

ersB 

MOV 
MOV 
RTS 



UNITNO 
ttBIT3#FLAG 
p. /UNITNO 

DRIVE 

FDUNIT 

2S 

i-lfcUNITNO 

DVICE/DRIVE 

PC 



COUNT A DRIVE 

CLEAR END OF DRIVES FLAG 

ALL DRIVES CHECKED 

¥ES, GO FLAG END OF DRIVES 

HQ, IS NEXT DRIVE CHOSEN 7 

N0# GO TRY ANOTHER DRIVE 

RETHRN 

SET END OF DRIVES FLAG 
RESET DRIVE COUNTER 
RESTORE CHOSEN DRIVES 
RETHRN 



jSeiZF THE DRIVE BY READING CSl REG 

NOTRDY: MOV tt77777/CLf ; SET THE TIMER 

4S: TST IrMCSI ?GRAB THE DRIVE 

BIT iBlTll/«RMCSl JDO I HAVE THE DRIVE DVA? 

BNE 2$ /YES 

B(?EAK$/BEGIN ;TEMP0RARY return to MONITOR.... 

BREAK$/9EGIN ;THEN CONTINUE AT NEXT INSTRUCTION. 

OKC CLK ;COUNT 8 OF TRIES 

BN£ 4S ;N0T done YET 

MSGNS/BFGIN/NOT ;ASCI I MESSAGE CALL WITH COMMON HEADER 

BR 5S yCOULD NOT GET DRIVE 

2S: JSR R5/CLEAR > RESET THE CONTROLLER AND DRIVE 

JSR R5/READY ; IS DRIVE READY ? 

BR IS ; V'=:S/ CONTINUE 

5S: JSR PC,ERSUB1 ; LOAD ERROR INFORMATION 

HOV ft6,ERRTYP JDRIVE NOT AVAILABLE 



#13,§RMCS1 ;RELEASE DRIVE 

PCi-OROP I NO, DROP THE DRIVE 

GIN/DRP ;ASCII MESSAGE CALL WITH COMMON HEADER 



OUT 



MOV 
JSR 
MSGN$ 
JMP 
RTS 



BEGIN, u 
FINT 



;COULD NOT GET DRIVE DROP MODULE 
;RETURN 



RMAD DEC/Xll SYSTEM EXERCISER MODULE 
XRMADO.Pll 12-DEC-7B 16:17 
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SEQ 0026 



Q63 
Q64 
965 
^66 
967 
Q6R 
969 
O70 
971 
^72 
973 
974 
975 
076 
977 
Q19 
979 
Q80 
981 
082 
983 
084 
085 
986 
087 
088 
080 
990 
991 
992 
993 
994 
995 
996 
997 
998 
990 
1000 
001 
002 
.003 
1004 
005 
.006 
007 
.008 
000 
1010 
1011 



005430' 
005434' 
005440' 
005444' 
005446' 
005450' 
005452' 
005454' 
005456' 
005462' 
005464' 
005466' 
005472' 
005474' 
005500' 



005502' 
005510' 
005514' 
005516' 

mm- 

005526' 
005532' 
005534' 
005540' 
005542' 
005546' 
005550' 
005554' 
005556' 
005560' 
005562' 
005564' 
005566' 



005570' 
005574' 
0056Q0' 
005604' 
005610' 
005612' 

005614' 
005622' 
005630' 



017701 
017704 
012702 
005003 
030201 
001006 
005203 
006302 
032702 
001771 
000207 
042704 
050304 
010477 
000207 



016777 
017700 
105700 
100022 

urM 

032700 
001414 
032700 
001011 
032700 
001406 
032700 
001003 
005700 
100401 
000205 
005725 
000205 



014167 
010167 

005721 
005722 

016767 
017767 
000207 



174162 
174150 
000001 



000400 

000007 
174110 



173064 174100 
174076 



000100 
000400 
004000 
010000 
040000 



is: 



2S: 



MOV 
MOV 
MOV 
CLR 
BIT 
BNE 
INC 
ASL 
BIT 
BEQ 
RTS 
BIC 
BIS 
MOV 
RTS 



is: 



MOV 

MOV 

TSTB 

BPL 

BIT 

BEQ 

BIT 

BEQ 

BIT 

BNE 

BIT 

BEQ 

BIT 

BNE 

TST 

BMI 

RTS 

TST 

RTS 



172312 
172302 
1723Q4 
172274 



173760 172256 
173752 172252 



ERSUB2: MOV 
MOV 
MOV 
MOV 
TST 
TST 



$RMAS,R1 

|rMCS2,R4 

|R1T0/R2 

R2/R1 

II 

R2 

|BIT8/R2 
PC 

#7/R4 
R3;R4 
R4/PRMCS2 
PC 



UNITNO, »RMCS2 

aRMDS/RO 

fiO 

IS 

piT6/R0 

|llT8/R0 

J?IT11/R0 

||lTl2/R0 

JBIT14/R0 

rS 

1| 



-(R1)#ASB 
Ri,SBAD- 



ERSIIBI: 



MOV 
MOV 
RTS 



Ki,3oADR 
-(R2)«A«AS 
R2^WASADR 
(Rl) + 
(R2)* 

RMCS1#CSRA 
rtRMCSl/ ACSR 



; GET THE ATTENTION SUMMARY 

; SAVE THE STATUS REGISTER 

? SET POINTER TO DRIVE. 

; ZERO THE DRIVE COUNTER 

; FIND IT ? 

; YES/ CONTINUE 

5 NO, INCREMENT THE DRIVE COUNTER 

; SET POINTER TO NEXT DRIVE 

; ALL DONE ? 

; NO, GO AGAIN 

J SOMEBODY LIED — NO ATTENTIONS SET 

; CLEAR OUT OLD UNIT NUMBER 

; LOAD THE NEW UNIT NUMBER 

; RESTORE THE STATUS REGISTER 

} RETURN 



LOAD UNIT ADDRESS 
SAVE STATUS IN RO 
DRIVE READY ? 
NO 

VOLUME VALID ? 
NO 

DRIVE PRESENT ? 
NO 

WRITE LOCKED ? 
YES 

MEDIUM ON LINE ? 
NO 

ANY ERRORS ? 
YES 

ATTENTION SET ? 
YES 

RETURN READY 

SKIP INSTRUCTION FOLLOWING CALL 
RETURN AS NOT READY 



LOAD THE DATA 

LOAD ADDRESS OF DATA WRITTEN 

LOAD THE DATA 

LOAD SDDR'^SS OF DATA READ 

RESET REG. 1 

RESET REG. 2 

LOAD ADR OF CURRENT CSR 
LOAD CONTENTS OF CURRENT CSR 
RETURN 



RMAD DEC/Xll SYSTEM EXERCISER MODULE 
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005722 



mvii 

77777 
00200 




750 
750 



104405 000000' 001600' 
000207 



piT5,&RMCS2 

tt77777-CLK 
|BlT7,PRMCSt 



RTS PC 



; ISSUE AN RHll INIT 
;CLEAR ALL ATA RITS 
} SFT THE TIMFR 
? CONTROLLER READV ? 
- YES 



REZET: MOV 
MOV 
MOV 

1$: BIT 

BNE d.^ 
BREAKS, BEGIN 
BREAKS, BEGIN 

DEC CLK , _ 

BME IS ; YES 

clr dvice ; NO, set to drop the module 

MOV HrERRTYP SCONTROLLBR NOT READY 

; COiiTROLLER NOT READY 
ft** »**»»**** ******* *********** 

? RETHRN 



; YES, CONTINUE 

;TEMPORARY RETURN TO MONITOR.. 
; THFN CONTINUE AT NEXT INSTRUCTION. 
; WAIT SOME MORE " 



*************** 



************* 




-752 
0O575" 
00576 
005764 



RHAD DEC/Xll SYSTEM EXERCISER MODULE 
XRMADO.Pll 12-DEC-78 16:17 



173640 

173634 

173630 

173624 

173620 

173614 

173610 

173604 

173600 

173574 

173570 

173564 

173560 

173554 

173550 

173544 

173540 

173534 

173530 
001000 
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-_00l 

005721 

010067 

005720 
010067 
005720 
010067 
005720 
010067 

\m 

005720 



171654 
000050 
100000 

000024 
17 347 2 



171652 



nv 



1$: 



2S: 



MOV 

MOV 

TST 

MOV 

TST 

MOV 

TST 

MOV 

TST 

MOV 

TST 

MOV 

TST 

MOV 

TST 

MOV 

TST 

MOV 

TST 

MOV 

TST 

MOV 

TST 

MOV 

TST 

MOV 

TST 

MOV 

TST 

MOV 

TST 

MOV 

TST 

MOV 

TST 

MOV 

TST 

MOV 

TST 

MOV 

BIT 

BEQ 

MOV 

ADD 

BIT 

BEQ 

ADO 

MOV 

TST 

MOV 

MOV 

MOV 

MOVR 

RfS 



ADOR,R0 

R0#RMCS1 

(RO)* 

RO#RMWC 

(RO)* 

RO^RMPA 

RO^RMDA 

(R0)» 

kO^RMCS2 

Jo#^MDS 

(RO)* 

RO^RMERl 

Sog^MAS 

Jo<^MLA 



(R0) + 
R0,RN 



R0#RMDB 

R0,RMMR1 

RO^RMDT 
(R0)+ 
RO^RMSN 
(R0) + 
R0#RMOF 

ROgRMDC 

5o#5mhr 

R04rRMMR2 



R0#RMEC2 
pDDR22,RESl 

aEdr,po 

#50c.R0 
|BIT15,SR1 

iog^MBAE 

Jo,iMCS3 
VECTOR^RO 



7 GET DEVICE ADDRESS 

? GENERATE REGISTER ADDRESSES 



;ll/70 MONITOR? 
?N0 

;locate the rmbae 
;assume 22 registers 
;32 register "> 
;branch ip not 32 registers 
; adjust the rmbae address 



GET VECTOR ADDRESS 

SET POINTER JUST IN CASE 

SET PRIORITY 

RETURN 



«MAD DEr/Xll SYSTEM EtEPCISER MODULE 

XRMano.Pii i2-nEC-78 16:17 



087 
ORfl 

1090 

;.09i 

;L092 
093 
■094 
095 
096 
097 
09P 
099 
100 
101 
1102 
.103 
1104 

:.105 

1106 
1107 
HOP 
1109 
11 



1116 
1117 

im 

1120 
1121 
1122 
1123 
1124 
1125 
1126 

1129 
1130 

im 

1133 
1134 

mi 

1137 
113B 
1139 
1140 
1141 
1142 



006202- 
006210' 
006216' 
006224' 
006225' 
006232' 
006240' 
006246' 
006254' 
006257' 
006264' 
006272' 
006300' 
006306' 
006314' 
006317' 
006324' 
006331' 
006336' 
006344' 
006352' 
006360' 
006365* 
006372' 
006376' 
006404- 
006412' 
006415' 
006422' 
006425' 
006432' 
006440- 
006446' 
006447' 
006454' 
006462' 
006470- 
006471- 
006476- 
006504' 
006512- 
006517- 
006524- 
006532- 
006540- 
006545- 
006552- 
006560- 



02004D 05112 



0065^ 

006577- 

006604' 

006612- 

006620* 

006626' 

006634- 



043123 
051105 

000 

040 
041123 
040520 
020040 
022522 

040 
041123 
040504 
040520 
020040 
022522 

040 
042526 

40 
050120 
051040 
042440 
042504 

40 
052111 
020040 
042524 
045503 

040 
042101 

040 
046040 
051105 

000 

040 
020105 
042522 

000 

040 
020104 
042507 
053111 

137 
047516 

mil 

045 
042520 
050104 
020104 
022505 

045 
031440 
020104 
051117 
047503 
050054 



7522 



022504 
020040 
000105 
053440 
041455 

000 
020040 

000 
040504 
052101 
047522 

051104 
047516 
042101 

047503 
047516 
020124 
022505 
057537 
Q20124 
031460 
022462 
051104 
020104 
046040 
051104 
000 
053117 
020062 
042523 
020123 
042122 
041501 



047101 
020040 
022522 

051501 
020040 
054524 
047522 

051501 
020040 
020040 
054524 
04752? 

044522 
000 
047522 
000045 
054522 
042505 
000 
051127 

044522 
042510 



020105 
022522 

053111 
020124 
022531 

046125 
020124 
051104 

000 
020137 
020101 
051057 

000 
050117 
046522 
040517 
053111 

051105 
040502 
052103 
042522 
042105 
020113 



MACYll 301(1052) 12-DEC-78 16:22 P»GE 31 
MESl: .Ascrz 



SEQ 0029 



MES2: 



MFS4; 
MFS5 : 
MES6: 



. ASCIZ 



. ASCIZ 
.ASCI? 

« ASCIZ 



MES7: .ASCIZ 

MES8: « ASCIZ 

MES9: .ASCIZ 

MFSIO: .SSCI7 

MFSll: . ASCI7 

MFS12: .ASCI7 

MFS13: . ASCIZ 

MFSLDP: -ASCIZ 



TRANSFER ERROR%- 
MASSBUS PARITY ERROR*' 



.ASCI7 ' MASSBUS DATA PARITY ERROR*' 



' DRIVE - 
' DROPPED!' 

- RETRY EXCEEDED%- 

aRlTE- 

alPlTE-CHECK- 

READ- 
' DATA LATE ERROR"*' 

' DRIVE NOT READY1- 

- COULD NOT GET DRIVE*" 

' „ NOT A RH03/RM02*- 

-%DROPPED RMDP LOAD DRI^EI^' 



XMES14: .ASCIZ 'WYE^ 32 BAD SECTORS RECORDED^PACK NOT ACCEPTABLE!' 



RMAD DEC/Xll SYSTEM EXERCISER MODULE 
XRMADO.Pll - " - " 



12-DEC-78 16:17 
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SEQ 0030 




020124 
052120 
"000" 



052 
047 
020 
050 
046 
046 
051 
042 



05 
11 
05 
23 
11 
11 
04 
_17 
000 



041501 
041101 

044522 XMES15: 

020107 

040502 

052117 

020105 

026523 

050117 

046125 



ldrive: 
trerr: 
mcpfrr: 
mopfrr: 

EXCEDl: 
EXCED2: 
EXC!%D3: 

dlterr: 

NOT: 

tout: 



ME SI 4: 
MES15: 



AORl: 
NUMB: 



.EVEN 

MESLDP 

MES2 

mm 

MES3 

mm 

MES7 

i^mi 

MESS 

I7f777 

MES<J 

MES6 

177777 

MESIO 

mm 

mil 

177l77 

MES4 
NOME 
MESS 

mm 

MES4 
NUMB 

imh 

XMES14 

mm 

XMESiS 
177777 

.BLKB 
.BYTE 

.BYTE 
.EVEN 
-BYTE 



•tRETRIRVING THE BAD SPOT FILE FAILS— DROP M0DULE%' 



KMAO DEC/Xll SYSTEM EXERCISER MODULE 
XRMAOO.Pll 12-DEC-78 16:17 
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8E7866 
007067 
007070 

m 

007073 

mi 

m mil 

'113 
114 

111 



mi 

1206 

1209 
"10 



1 



TRY2: 

TRY3: 

TRY4: 

TPV5: 

TRY6: 

TRY7: 

TRY8: 

TRY9: 

TRYIO: 

TRYll: 

TRY12: 

flag: 

TRK: 

FIX: 



• BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.EVEN 



?NEED on NOT HgLETE FROM CODE 



RMAD DEC/Xll SYSTEM EXERCISER MODULE 
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ABH 

ACSR 
ADDR 
ADDR22 
ADRl 
ASB 
ASTAT 
AWAS 
BADFL 
BA0FL2 
BADLOP 
BADSEC 
BADSPT 
BEGIN 



002664R 

001000 

007054R 

mnh 

OOOllOR 

mm 




02 



CYLSAV 
DAOCL 



1004* 
505 
515 

tn 
nr 

602 
718 
752 
941 
405 
762 
683 
778 
556 
445 

407 

984 

677 

764 

748 

527* 

440* 

10R5 



373» 
565 



799 
939* 

III 

45in 

461* 

855 

628 
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1073 



507 



578* 

456 

471 

675 

943 

720 

813 


744* 

4 BO 

499 

679 

944 

965 

818 


802* 

877 

516 

680 

947 

824 


8«2 
524 
696 
955 

847 


8B6 
529 
704 
95 9 


8»9 
565 
7O8 
1022 


569 
739 
1023 


9B8 
990 
















768 

725 

538 


992 

758 
924 


930 








1017 














701 
971 


1020 
986 












527 
897 
675 


559* 


716 


812* 


815 


817* 


821 


679 


680 


943 


944 


1022 


1023 


479 














801 
945* 
403* 
568* 


949 


1024* 










627 

857* 
643 


661 


642 
903 

830* 


643* 
903* 


660 


661* 


829* 



573 
760 
1029 



RM4D DSC/XII SYSTEM GXEHCrSFR HUDULS 
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SEQ 0033 



DAOST 

DftTCK$= 

DATER^= 

HLTCNT 

DLTEPR 

DRIVb 

DROP 

DRP 

DPPl 

DSKADR 



DVICE 
DVIDI 
EA22 



ENDIT<; = 
END< = 
ERRORS 
ERRTYP 
ERSURl 
ERSUB2 
EXCEDl 
EXCED2 
EXCFD3 
EXITS = 
FDMNIT 
FERAUR 
FILE 
PINT 
FIX 
FLAG 

PREF 

FUNC 

GETPA<; = 

GOA 

GOB 

GOC 

GOGO 

GWBUF$= 

HRDCNT 

HRDER§= 

hrdpaS 

I CO NT 

iCOtJNT 

IDNUM 

IMODX.= 

INIT 

INTP 

LDRIVE 

MAP22$= 

MBLKRV 

MBLKTR 

MCPFRR 

MDPPRP 

MESLDP 

MESl 



002070R 



000556R 
000014H 
000512R 



000474R 



435 

248« 

248i 

316« 

760 

365# 

604 

605 

1185t 
3631 
873* 
364# 
loqS 
335# 
248| 
248| 
711 
222» 
754 

1002« 
585 
592 
509 
24Blf 
444 
327if 
2488 
436 

924* 

240» 

324« 

248« 

557 

563tt 

554I 

636 

248» 

202« 

248lf 

204« 

i^g* 

200tf 
229i 
241B 
1'56» 
228# 
431 
248» 
336» 
337tf 
783 
7R6 
1132S 
1087# 



404* 
1173tt 
438* 
^29i^ 
959 

462* 

874* 

418* 

418 

698 

569 

573 

744if 

772* 

952 

1164« 
1167# 
1170# 
704 
501 
3<'7 



445 

930* 

622* 
471 
561lf 
5Q7 

583 
651 
529 

774 



530 

402* 
1156* 

696 

411 

844 
1160« 
1162« 
1156 
1158 



757* 






9 27 * 
958 
11«1« 


932* 




463* 


466* 


512* 


428 


430* 


434 


699* 


700* 


701 


704* 


953* 


1027* 


532 


923ft 


928 


455 


500 


517 


502 
1210s 


538 


556 


637* 

524 

590 


655* 


702* 


669 


687« 




955 


1029 





513* 
438 



514 
452 



625 
535 



640 
735* 



658 
932 



831* 
1026* 



537 
558* 

703 



572« 
718 



960 
720* 



813 
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SEQ 0034 



MFSIO 

HESll 

MES12 

MES13 

MES14 

MES15 

MES2 

MES3 

MES4 

MESS 

MES6 

MES7 

MES ^ 

MES9 

MHICY 

MIXDV 

MLOWCV 

MODF 

HQDNAM 

MODSP 

MODI 

MSGNS = 

MSGSS = 
MSGS = 
NEXT 
NEXTA 
NOT 

NOTRCy 

NTHUPT 
NOLL = 
NUMB 
NXTl 
ONCEE 
OPEN = 



OTOAS 

PASCNT 
Pfilo 
PA22 
PTROS : 
POPSP : 
PQPSP2: 
PRTY : 
PRTYO : 
PRTYi : 
PRTV2 : 
PRTY3 -. 
PRTV4 : 
PRTY5 : 
PRTV6 : 
PRTY? : 
PS : 
PSW : 
PUSH = 



006425R 
006447R 
006471R 
006517R 
007044R 
007050R 
006225R 
006257R 
006317R 
006331R 
006344R 
006365R 
006376R 
0064i5R 
000524R 
000574R 
000522R 
000520R 
OOOOOOP 
000252R 
000576R 
104403 

104402 

104401 

002620R 

003206R 

007014R 

005300R 

003764R 

000000 

007061R 

003046R 

000476R 

000000 



104420 

000034R 

000504R 

000510R 

000004 

005726 

022626 

000000 

000000 

00C040 

000100 

000140 

000200 

000240 

000300 

000340 

177776 

177776 

005746 



1116a 


1173 






1120* 


1176 






1124# 


1178 






11281 


11B7 






499 


11B9# 






516 


llQll* 






1091tt 


ml 






1096# 








1102» 


llBl 






1104ii 








1106# 


\\U 


1168 


1171 


1109f 


1164 






mil 


1167 






1114ff 


1170 






340t 


721 


821 




371tt 


473 


826 


904* 


339ft 


815 






338« 


870 






183i 








107 


246tf 






372« 


405* 


409* 


464 


248a 


431 


499 


516 


959 








248ff 








248tf 








532# 


571 


575 


606 


579 


5B6 


503 


600 


947 


11768 






450 


506 


545 


939tf 


6fl8 


706tf 






248« 








11B2 


1186 


1195 if 




575tt 








325ff 


416* 






184 


190 


191 


1Q2 


219 


221 


223 


224 


239 


240 


248tt 




24Bff 


739 






198# 








332« 


601* 


6O6 




334}f 


697 






248tt 


708 






248« 








248# 








248» 








188 


24Bft 






24Btf 








248^ 








24B# 








248« 








1B7 


248« 






248J* 








248^ 








24B]f 








243it 








248» 









6B4 
585 



786 



^23 



26 



210 
227 



211 

228 



212 
231 



213 

232 



214 
234 



215 
235 



216 
237 



217 

238 



RMAD DEC/Xll SYSTEM EXERCISFIR MQDULF 
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PUSH2 = 

RANDS = 

RANNOM 

RBUFEft 

RBUFPA 

RBUFS7. 

RBDFWA 

READ 

READY 

RESTRT 

RESYNC 

RESl 

RES2 

RETRX 

RETRYl 

REfRY2 

RETRY3 

REZE? 

RMAS 

RMBA 

RMBAE 

RHCSl 

RMCS2 

RMCS3 

RMDA 

RMDB 

RMDC 

RMDS 

RMDT 

RMECl 

RMECi 

RHERl 

RMER2 

RMHR 

RMLA 

RMHRl 

RNHR2 

RMOF 

RMSM 

RMHC 

RM03CK 

ROOM 

RSTPT 

RSTRTl 

SBADR 

SEC 

SETUP 

SDFCNT 

SOFERS= 

SOFPAS 

SPOINT 

IIV^ - 

SR2 



04417 
OQ054R 



003122R 



51616R 
01604R 



001652R 
001606R 
001622R 
001634R 
001612R 
001626R 
'01644R 

6R 

-_4R 
_-_642R 
001636R 
001620R 
001624R 
001640R 
001632R 
001630R 
00l602R 
005140R 
004006R 



001646 
001614 
001642 



0025. 
000102R 
000466R 
005724R 
000042R 
104406 
000046R 
000032R 

000020R 



mt 
mi 

230i 
477 
448 

Wi 

208# 
2Q9» 
478 
555 
562 
564 
443 

395* 
375tt 

1042* 

3«^4l 

im 

3R6j| 



565 

475 

471 

563 

504 

518ff 

751 

689 

512fl 
576| 

10l7tf 

698* 

467* 

10B2* 
469* 
790 

^ir 

905^ 

}§72* 
748 
77fl 
064* 
.050* 
1054* 
1066* 
684* 
1058* 
623* 
542 
750 

519 
1003* 

842* 
1033» 

796 

439 

m 



m 
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657 

525 

524 

655» 

543 



753 
1073 



625* 
703* 

627* 

768 

907 



1046* 
1068* 



638* 
626 



521 
865* 



787 
657* 


963 
601 


1018* 
607* 


1048* 
lOTB* 




677 


6B3* 


703* 


745 


7f^2 


670* 


6R7* 


755 


764 


701 


640* 

708* 

642* 

981 

909 


658* 
1052* 

660* 
1044* 

911 


838 
832 
1056* 


839 
834 


1040* 
1062* 



656* 
641 



523« 
870 



766 
R2B* 



940 
q^4 



941 
976* 



957* 
900* 



1009 
1017* 



1036* 
659 



RMAD DEC/Xll 
XRMADO.Pll 



SYSTEM EXERCISER MODOLE 
12-0EC-78 16:17 




TR-- 
TRY6 
TRY7 
TR¥8 

??r 

Tie 

OHITHO 

OPDATT 
? ECTOR 
WASAOR 
UBOFEA 
HBOFPA 
WBUFRO 
MBUFS7 
WCMTl 

WDTO 
VHO 

mr 

XPERAD 

XFERCT 

XFLAG 

XNEN 

XNES14 

XMESiS 



065R 
EololoR 

""Ml 

0572- 




40Q# 
541 



1158f 
860* 



580* 
12089 



58fl 
594* 



1202f 



1206f 
406 



lOOL 
630 
624 



635* 
11»»9 
1191 



MACYll 30A(1052) 12-0EC-78 16:22 PIGE 
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522 

560 10P4 



955 1029 



868 874 882 1211« 

5«1 11«>8« 



688* 



1199i 
595 1200# 



467 
1083 



645 
639 

717 



623^ 
525^ 



638 
526* 



692* 



693* 



694* 



695* 



701* 



702 



RMAD DEC/Xll SYSTEM EXERCISER MnuULP MACYll 30A(1052) 12-DEC-78 16:22 PAGE 40 

XRMAnO.Pll 12-DEC-7B 16:17 CROSS REFERENCE TABLE — USER SYMBOLS 

ZERO 00Q552R 362# 7P3 

= 007104R 373* 446 465 566 577 896 1155B HQ 

. ARS. 000000 000 
007104 001 



ERRORS DETECTED: 

DEFAULT GLOBALS GENERATED: 

XRMAD0,XRMAD0/SOL/CRF:SYM=DDXC0M,XRMAD0 
run-time: 2 3 .5 SECONDS 
RUN-TIME ratio: 28/6=4.5 
CORE used: 7K (13 PAGES) 



